home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / T-Z / TestStack.cpt / Test Stack / card_3209.txt < prev    next >
Text File  |  1989-02-26  |  6KB  |  248 lines
  1. -- card: 3209 from stack: in
  2. -- bmap block id: 4416
  3. -- flags: 0000
  4. -- background id: 2753
  5. -- name: Region XCMDs
  6. ----- HyperTalk script -----
  7.  
  8.  
  9.  
  10.  
  11. -- part 1 (button)
  12. -- low flags: 00
  13. -- high flags: 8003
  14. -- rect: left=173 top=111 right=219 bottom=377
  15. -- title width / last selected line: 0
  16. -- icon id / first selected line: 0 / 0
  17. -- text alignment: 1
  18. -- font id: 0
  19. -- text size: 12
  20. -- style flags: 0
  21. -- line height: 16
  22. -- part name: ClickInRegion
  23. ----- HyperTalk script -----
  24. on mouseUp
  25.   if ClickInRegion(card field "theRegion") is true then
  26.     play "Inside"
  27.     FlashRegion card field "theRegion"
  28.   else
  29.     if ClickInRegion(card field "theRegion") is false then
  30.       play "Outside"
  31.       FlashRegion card field "theRegion"
  32.     else
  33.       if ClickInRegion(card field "theRegion") is empty then
  34.         play "harpsichord"
  35.         put "No region specified" into msg
  36.         FlashRegion card field "theRegion"
  37.       end if
  38.     end if
  39.   end if
  40.   put the heapspace into bkgnd field "theHeapspace"
  41. end mouseUp
  42.  
  43.  
  44.  
  45. -- part 2 (button)
  46. -- low flags: 00
  47. -- high flags: A003
  48. -- rect: left=388 top=268 right=289 bottom=505
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: Flash Region
  57. ----- HyperTalk script -----
  58. on mouseUp
  59.   FlashRegion card field "theRegion"
  60.   put the heapspace into bkgnd field "theHeapspace"
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part 3 (button)
  66. -- low flags: 00
  67. -- high flags: A003
  68. -- rect: left=389 top=291 right=313 bottom=505
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 1
  72. -- font id: 0
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: NewRegion
  77. ----- HyperTalk script -----
  78. on mouseUp
  79.   put NewRegion() into card field "theRegion"
  80.   put the heapspace into bkgnd field "theHeapspace"
  81. end mouseUp
  82.  
  83.  
  84.  
  85. -- part 10 (button)
  86. -- low flags: 00
  87. -- high flags: 8003
  88. -- rect: left=173 top=221 right=338 bottom=375
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: GetClickedRegions
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   global outputContainer
  100.   put "card field " & quote & "regionNames" & quote into REGNContainer
  101.   put  "card field " & quote & "ClickedRegions" & quote into outputContainer
  102.   put empty into card field "ClickedRegions"
  103.   put zero into card field "numRegions"
  104.  
  105.   GetClickedRegions REGNContainer, outputContainer
  106.   put the number of lines in card field "regionNames" into totNum
  107.  
  108.   if card field "ClickedRegions" is not empty then
  109.     put the number of lines in card field "ClickedRegions" into numRegions
  110.     put numRegions into card field "numRegions"
  111.  
  112.     repeat with count = 1 to numRegions
  113.       play "Inside"
  114.       FlashRegion line count of card field "ClickedRegions"
  115.     end repeat
  116.   else
  117.     play "Outside"
  118.     repeat with count = 1 to totNum
  119.       FlashRegion line count of card field "regionNames"
  120.     end repeat
  121.   end if
  122.  
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 11 (button)
  128. -- low flags: 00
  129. -- high flags: A003
  130. -- rect: left=387 top=245 right=267 bottom=506
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: GetRegionNames
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   GetRegionNames "card field " & quote & "regionNames" & quote
  142.   put the heapspace into bkgnd field "theHeapspace"
  143.  
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 12 (field)
  149. -- low flags: 01
  150. -- high flags: 0007
  151. -- rect: left=8 top=76 right=208 bottom=165
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 0
  155. -- font id: 162
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: regionNames
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   put lineContent("card field " & quote & "regionNames" & quote) into temp
  163.   if temp is not empty then put temp into card field "theRegion"
  164. end mouseUp
  165.  
  166.  
  167. -- part 13 (field)
  168. -- low flags: 00
  169. -- high flags: 0002
  170. -- rect: left=174 top=79 right=103 bottom=377
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 0
  174. -- font id: 162
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: theRegion
  179.  
  180.  
  181. -- part 15 (field)
  182. -- low flags: 01
  183. -- high flags: 0007
  184. -- rect: left=8 top=238 right=338 bottom=165
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 0 / 0
  187. -- text alignment: 0
  188. -- font id: 162
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 16
  192. -- part name: ClickedRegions
  193. ----- HyperTalk script -----
  194. on mouseUp
  195.   put lineContent() into temp
  196.   if temp is not empty then put temp into card field "theRegion"
  197. end mouseUp
  198.  
  199.  
  200. -- part 16 (field)
  201. -- low flags: 01
  202. -- high flags: 0002
  203. -- rect: left=126 top=217 right=235 bottom=165
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 0
  207. -- font id: 3
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: numRegions
  212.  
  213.  
  214. -- part contents for background part 26
  215. ----- text -----
  216. page 4
  217.  
  218. -- part contents for background part 25
  219. ----- text -----
  220. Region XCMDs
  221.  
  222. -- part contents for background part 30
  223. ----- text -----
  224. 358800
  225.  
  226. -- part contents for card part 13
  227. ----- text -----
  228. Bone
  229.  
  230. -- part contents for card part 16
  231. ----- text -----
  232. 2
  233.  
  234. -- part contents for card part 12
  235. ----- text -----
  236. heart
  237. triangle
  238. roundE
  239. box
  240. nose
  241. stomach
  242. clock
  243. Bone
  244.  
  245. -- part contents for card part 15
  246. ----- text -----
  247. nose
  248. stomach